home *** CD-ROM | disk | FTP | other *** search
/ Windows Game Programming for Dummies (2nd Edition) / WinGamProgFD.iso / pc / DirectX SDK / DXSDK / samples / Multimedia / VBSamples / DirectShow / Editing / DexterVB / frmTransitions.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  2001-10-08  |  12.1 KB  |  315 lines
  1. VERSION 5.00
  2. Begin VB.Form frmTransitions 
  3.    Caption         =   "Transitions Menu"
  4.    ClientHeight    =   3660
  5.    ClientLeft      =   60
  6.    ClientTop       =   345
  7.    ClientWidth     =   6120
  8.    Icon            =   "frmTransitions.frx":0000
  9.    LinkTopic       =   "Form2"
  10.    LockControls    =   -1  'True
  11.    ScaleHeight     =   3660
  12.    ScaleWidth      =   6120
  13.    StartUpPosition =   1  'CenterOwner
  14.    Begin VB.Frame fraFixture 
  15.       Height          =   3165
  16.       Left            =   75
  17.       TabIndex        =   9
  18.       Top             =   0
  19.       Width           =   5940
  20.       Begin VB.TextBox txtSwapInputs 
  21.          Height          =   375
  22.          Left            =   1830
  23.          TabIndex        =   5
  24.          Top             =   2625
  25.          Width           =   3975
  26.       End
  27.       Begin VB.TextBox txtCutsOnly 
  28.          Height          =   375
  29.          Left            =   1830
  30.          TabIndex        =   4
  31.          Top             =   2145
  32.          Width           =   3975
  33.       End
  34.       Begin VB.TextBox txtCutpoint 
  35.          Height          =   375
  36.          Left            =   1830
  37.          TabIndex        =   3
  38.          Top             =   1665
  39.          Width           =   3975
  40.       End
  41.       Begin VB.TextBox txtStopTime 
  42.          Height          =   375
  43.          Left            =   1830
  44.          TabIndex        =   2
  45.          Top             =   1185
  46.          Width           =   3975
  47.       End
  48.       Begin VB.TextBox txtStartTime 
  49.          Height          =   375
  50.          Left            =   1830
  51.          TabIndex        =   1
  52.          Top             =   705
  53.          Width           =   3975
  54.       End
  55.       Begin VB.ComboBox cmbTransition 
  56.          Height          =   315
  57.          Left            =   1830
  58.          Sorted          =   -1  'True
  59.          TabIndex        =   0
  60.          Top             =   225
  61.          Width           =   3975
  62.       End
  63.       Begin VB.Label lblSwapInputs 
  64.          Caption         =   "Swap Inputs"
  65.          Height          =   255
  66.          Left            =   150
  67.          TabIndex        =   15
  68.          Top             =   2745
  69.          Width           =   975
  70.       End
  71.       Begin VB.Label lblCutsOnly 
  72.          Caption         =   "Cuts Only"
  73.          Height          =   255
  74.          Left            =   150
  75.          TabIndex        =   14
  76.          Top             =   2265
  77.          Width           =   1095
  78.       End
  79.       Begin VB.Label lblCutpoint 
  80.          Caption         =   "Cutpoint"
  81.          Height          =   255
  82.          Left            =   150
  83.          TabIndex        =   13
  84.          Top             =   1785
  85.          Width           =   1335
  86.       End
  87.       Begin VB.Label lblStop 
  88.          Caption         =   "Stop"
  89.          Height          =   255
  90.          Left            =   150
  91.          TabIndex        =   12
  92.          Top             =   1305
  93.          Width           =   615
  94.       End
  95.       Begin VB.Label lblStart 
  96.          Caption         =   "Start"
  97.          Height          =   255
  98.          Left            =   150
  99.          TabIndex        =   11
  100.          Top             =   825
  101.          Width           =   735
  102.       End
  103.       Begin VB.Label lblTransition 
  104.          Caption         =   "Transition"
  105.          Height          =   255
  106.          Left            =   150
  107.          TabIndex        =   10
  108.          Top             =   345
  109.          Width           =   1695
  110.       End
  111.    End
  112.    Begin VB.CommandButton cmdOk 
  113.       Caption         =   "OK"
  114.       Default         =   -1  'True
  115.       Height          =   340
  116.       Left            =   3615
  117.       TabIndex        =   6
  118.       Top             =   3255
  119.       Width           =   1095
  120.    End
  121.    Begin VB.CommandButton cmdCancel 
  122.       Caption         =   "Cancel"
  123.       Height          =   340
  124.       Left            =   4815
  125.       TabIndex        =   7
  126.       Top             =   3255
  127.       Width           =   1215
  128.    End
  129.    Begin VB.TextBox GetSubObjectGUIDB 
  130.       Height          =   420
  131.       Left            =   6300
  132.       TabIndex        =   8
  133.       Top             =   75
  134.       Visible         =   0   'False
  135.       Width           =   915
  136.    End
  137. Attribute VB_Name = "frmTransitions"
  138. Attribute VB_GlobalNameSpace = False
  139. Attribute VB_Creatable = False
  140. Attribute VB_PredeclaredId = True
  141. Attribute VB_Exposed = False
  142. '*******************************************************************************
  143. '*       This is a part of the Microsoft DXSDK Code Samples.
  144. '*       Copyright (C) 1999-2001 Microsoft Corporation.
  145. '*       All rights reserved.
  146. '*       This source code is only intended as a supplement to
  147. '*       Microsoft Development Tools and/or SDK documentation.
  148. '*       See these sources for detailed information regarding the
  149. '*       Microsoft samples programs.
  150. '*******************************************************************************
  151. Option Explicit
  152. Option Base 0
  153. Option Compare Text
  154. Private m_intUnloadMode As Integer
  155. Private Const DIALOG_TITLE = "Transition Help"
  156. ' **************************************************************************************************************************************
  157. ' * PUBLIC INTERFACE- PROPERTIES
  158.             ' ******************************************************************************************************************************
  159.             ' * procedure name: UnloadMode
  160.             ' * procedure description:  Returns an integer specifying the method from which this dialog was last unloaded
  161.             ' *
  162.             ' ******************************************************************************************************************************
  163.             Public Property Get UnloadMode() As Integer
  164.             On Local Error GoTo ErrLine
  165.             'return the value to the client
  166.             UnloadMode = m_intUnloadMode
  167.             Exit Property
  168.             
  169. ErrLine:
  170.             Err.Clear
  171.             Exit Property
  172.             End Property
  173.             
  174.             
  175. ' **************************************************************************************************************************************
  176. ' * PRIVATE INTERFACE- FORM EVENT HANDLERS
  177.             ' ******************************************************************************************************************************
  178.             ' * procedure name: Form_Load
  179.             ' * procedure description:  Occurs when a form is loaded.
  180.             ' *
  181.             ' ******************************************************************************************************************************
  182.             Private Sub Form_Load()
  183.             On Local Error GoTo ErrLine
  184.             'set default value(s)
  185.             With cmbTransition
  186.                 .AddItem "Barn"
  187.                 .AddItem "Blinds"
  188.                 .AddItem "BurnFilm"
  189.                 .AddItem "CenterCurls"
  190.                 .AddItem "ColorFade"
  191.                 .AddItem "Compositor"
  192.                 .AddItem "Curls"
  193.                 .AddItem "Curtains"
  194.                 .AddItem "Fade"
  195.                 .AddItem "FadeWhite"
  196.                 .AddItem "FlowMotion"
  197.                 .AddItem "GlassBlock"
  198.                 .AddItem "Grid"
  199.                 .AddItem "Inset"
  200.                 .AddItem "Iris"
  201.                 .AddItem "Jaws"
  202.                 .AddItem "Lens"
  203.                 .AddItem "LightWipe"
  204.                 .AddItem "Liquid"
  205.                 .AddItem "PageCurl"
  206.                 .AddItem "PeelABCD"
  207.                 .AddItem "Pixelate"
  208.                 .AddItem "RadialWipe"
  209.                 .AddItem "Ripple"
  210.                 .AddItem "RollDown"
  211.                 .AddItem "Slide"
  212.                 .AddItem "SMPTE Wipe"
  213.                 .AddItem "Spiral"
  214.                 .AddItem "Stretch"
  215.                 .AddItem "Threshold"
  216.                 .AddItem "Twister"
  217.                 .AddItem "Vacuum"
  218.                 .AddItem "Water"
  219.                 .AddItem "Wheel"
  220.                 .AddItem "Wipe"
  221.                 .AddItem "WormHole"
  222.                 .AddItem "Zigzag"
  223.             End With
  224.             Exit Sub
  225.             
  226. ErrLine:
  227.             Err.Clear
  228.             Exit Sub
  229.             End Sub
  230.             
  231.             
  232.             ' ******************************************************************************************************************************
  233.             ' * procedure name: Form_QueryUnload
  234.             ' * procedure description:  Occurs before a form or application closes.
  235.             ' *
  236.             ' ******************************************************************************************************************************
  237.             Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
  238.             On Local Error GoTo ErrLine
  239.             
  240.             Select Case UnloadMode
  241.                 Case vbFormControlMenu
  242.                          '0 The user chose the Close command from the Control menu on the form.
  243.                          Cancel = 1: Me.Visible = False
  244.                 Case vbFormCode
  245.                          '1 The Unload statement is invoked from code.
  246.                 Case vbAppWindows
  247.                          '2 The current Microsoft Windows operating environment session is ending.
  248.                 Case vbAppTaskManager
  249.                          '3 The Microsoft Windows Task Manager is closing the application.
  250.                          End
  251.                 Case vbFormMDIForm
  252.                          '4 An MDI child form is closing because the MDI form is closing.
  253.                 Case vbFormOwner
  254.                          '5 A form is closing because its owner is closing
  255.             End Select
  256.             Exit Sub
  257.             
  258. ErrLine:
  259.             Err.Clear
  260.             Exit Sub
  261.             End Sub
  262.             
  263.             
  264.             ' ******************************************************************************************************************************
  265.             ' * procedure name: Form_Unload
  266.             ' * procedure description:  Occurs when a form is about to be removed from the screen.
  267.             ' *
  268.             ' ******************************************************************************************************************************
  269.             Private Sub Form_Unload(Cancel As Integer)
  270.             On Local Error GoTo ErrLine
  271.             With Me
  272.                .Move 0 - (Screen.Width * 8), 0 - (Screen.Height * 8): .Visible = False
  273.             End With
  274.             Exit Sub
  275.             
  276. ErrLine:
  277.             Err.Clear
  278.             Exit Sub
  279.             End Sub
  280. ' **************************************************************************************************************************************
  281. ' * PRIVATE INTERFACE- CONTROL EVENT HANDLERS
  282.             ' ******************************************************************************************************************************
  283.             ' * procedure name: cmdOk_Click
  284.             ' * procedure description:  occures when the user presses the 'Ok' button
  285.             ' *
  286.             ' ******************************************************************************************************************************
  287.             Private Sub cmdOk_Click()
  288.             On Local Error GoTo ErrLine
  289.             'hide dialog
  290.             Me.Visible = False
  291.             Exit Sub
  292.             
  293. ErrLine:
  294.             Err.Clear
  295.             Exit Sub
  296.             End Sub
  297.             
  298.             
  299.             ' ******************************************************************************************************************************
  300.             ' * procedure name: cmdOk_Click
  301.             ' * procedure description:  occures when the user presses the 'Cancel' button
  302.             ' *
  303.             ' ******************************************************************************************************************************
  304.             Private Sub cmdCancel_Click()
  305.             On Local Error GoTo ErrLine
  306.             'hide dialog
  307.             Me.Visible = False
  308.             m_intUnloadMode = 1
  309.             Exit Sub
  310.             
  311. ErrLine:
  312.             Err.Clear
  313.             Exit Sub
  314.             End Sub
  315.